home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / STRAOB / PBDATA.PAS < prev    next >
Pascal/Delphi Source File  |  1994-10-16  |  3KB  |  79 lines
  1. {SECTION ..PbDATA }
  2. UNIT PbDATA;
  3.  
  4. INTERFACE
  5.  
  6.  
  7. {
  8. Description:  Global data for all programs
  9.  
  10. Author      : Howard Richoux
  11. Date        : 2/18/94
  12. Last revised: 8/11/92 Added pColorSet2
  13.               10/16/94 replaced variables by constants, eliminating the init code
  14. Application : IBM PC and compatibles, Turbo Pascal 7.0
  15. Status      : Placed in the Public Domain by HNR Software 1/94
  16. Published in: none
  17. }
  18.  
  19. {SECTION ..PbPARMS_DATA }
  20. {
  21. These variables are supported by PbPARMS  .CFG file loading
  22.  
  23. Note: In future, could replace string vars by STR_objects and reduce footprint.
  24.  
  25. StandardpVarsInit - sets a group of standard variables, free decoding:
  26.     Internal   External(CFG)    Possible Use                   Default
  27.     --------   --------         ---------------------------    -------
  28.     pFirst     FIRST=<nnn>      First record number to keep    0
  29.     pLast      LAST=<nnn>       Last record number to keep     32700
  30.     pCount     COUNT=<nnn>      Number of records to keep      32700
  31.     pRecs      RECS=<nnn>       Number of records to keep      32700
  32.     pSkip      SKIP=<nnn>       Number of records to skip      0
  33.     pSize      SIZE=<nnn>       Record size                    16
  34.     pDelay     DELAY=<nnn>      millisecond delay              100
  35.  
  36.     pDataPath  DATAPATH=xx..x   Data directory                 ''
  37.     pOutFile                    CON LPT1, ...                  'CON'
  38.  
  39.     pDebug     DEBUG=ON         Turn On/Off debugging          false
  40.  
  41.     pColorScheme                for WINDOW_objects             0  b/w
  42.     pSystemID                   TAG to identify system         ''
  43.     pPrinterID                  TAG to identify printer type   ''
  44.     pEditor                     EXE file for text editor       'c:\dos\edit'
  45.     pCompiler                   EXE file for Compiler          'c:\bp\bin\tpc'
  46.     pLocFile                    tags and directories           'c:\location.loc'
  47.     pProgID    (*miscstuf*)     ID & version # of program      ''
  48.     pCurrFName                  file being operated on         ''
  49. }
  50.  
  51. const pSystemID       : string[12] = 'HNR';
  52. const pPrinterID      : string[12] = 'LJ4';
  53. const pProgID         : string[24] = '<pProgID>';
  54. const pPubDomain      : boolean = true;
  55. const pPubDomainMsg   : string[36] = '  Public Domain by HNR Software 1994';
  56. const pCopyrightMsg   : string[32] = '  Copyright by HNR Software 1994';
  57. const pServerFlag     : boolean = false;
  58. const pDebug          : boolean = false;
  59. const pSkip           : integer = 0;
  60. const pFirst          : integer = 0;
  61. const pLast           : integer = 32700;
  62. const pRecs           : integer = 32700;
  63. const pCount          : integer = 32700;
  64. const pDelay          : integer = 100;
  65. const pSize           : integer = 16;
  66. const pColorSet       : integer = -1;    {ignore}
  67. const pColorSet2      : integer = -1;    {ignore}
  68. const pDataPath       : string[30] = '';
  69. const pCurrFName      : string[50] = '??';
  70. const pOutFile        : string[40] = 'CON';
  71. const pEditor         : string[30] = 'c:\dos\edit.exe';
  72. const pCompiler       : string[30] = 'c:\bp\bin\tpc.exe';
  73. const pLocFile        : string[50] = 'c:\location.loc';
  74.  
  75. {section .ZIMPLEMENTATION }
  76. IMPLEMENTATION
  77.  
  78. end.
  79.